Option Explicit
Sub Q_Sample026()
    ']wޥζMicrosoft Internet Controls
    Dim myIE      As InternetExplorer
    Dim mySiteUrl As String
    'w½ĶURL
    Const myUrl As String = "www.excite.co.jp/world/url/#wb_url"
    'w^URL
    mySiteUrl = "http://j-walk.com/ss/excel/index.htm"
    Set myIE = New InternetExplorer
    With myIE
        .Visible = False
        .Navigate myUrl
        Do While .Busy
        Loop
        Do Until .ReadyState = READYSTATE_COMPLETE
        Loop
        .Document.all("wb_url").Value = mySiteUrl
        .Document.all("submit").Click
        .Quit
    End With
    Set myIE = Nothing					'
End Sub
